home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / MailerInfo.zprx < prev    next >
Text File  |  1995-01-05  |  7KB  |  297 lines
  1. /* $VER: MailerInfo.zp V2.0 (1.1.95) C Albert Weinert
  2.                                           <a.weinert@darkness.gun.de>
  3.  
  4.   Ein ARexx Programm für Statistikfans.
  5.  
  6.   Dieses Programm durchsucht die Nachrichten nach einem
  7.   Mailereintrag und zählt die Anzahl der Nachrichten die
  8.   mit einen Mailer (Point-Programm) geschrieben wurden.
  9.   Anschließend wird einem Auskunft darüber gegeben.
  10.   
  11.   Wenn das Programm in der Nachrichtübersicht gestartet
  12.   wird, dann werden die Nachrichten aus dem aktuellen
  13.   Brett genommen.
  14.   Sollte sich Zodiac's Point beim Programmstart in
  15.   der Brettübersicht befinden dann werden aus allen
  16.   Brettern die Nachrichten durchsucht (Spoolbrett und
  17.   Nachrichtenarchive allerdings nicht).
  18.  
  19.   Für dieses Programm wird mindestens Zodiac's Point V3,7
  20.   benötigt.
  21.     
  22.   Das Programm muss unbedingt auf eine F-Taste gelegt
  23.   werden. Sonst klappt es mit der Port-Adresse nicht.
  24.   
  25. */
  26.  
  27. OPTIONS RESULTS
  28.  
  29. PARSE ARG name typ
  30. ADDRESS VALUE name
  31.  
  32. UPPER typ
  33.  
  34. NUMERIC DIGITS 3
  35.  
  36. mailer.0.c = 0;
  37. mailer.0.n = "eigene Nachrichten";
  38. mailer.0.id = "EIGEN"
  39. mailer.1.c = 0;
  40. mailer.1.n = "MicroDot";
  41. mailer.1.id = "Micro";
  42. mailer.2.c = 0;
  43. mailer.2.n = "CrossPoint";
  44. mailer.2.id = "Cross";
  45. mailer.3.c = 0;
  46. mailer.3.n = "The Spot";
  47. mailer.3.id = "Spot,";
  48. mailer.4.c = 0;
  49. mailer.4.n = "The Answer";
  50. mailer.4.id = "-- Th";
  51. mailer.5.c = 0;
  52. mailer.5.n = "Zodiac's Point";
  53. mailer.5.id = "Zodia";
  54. mailer.6.c = 0;
  55. mailer.6.n = "April V1.0";
  56. mailer.6.id = "April"
  57. mailer.7.c = 0;
  58. mailer.7.n = "AmBoS-ZConnect";
  59. mailer.7.id = "AmBoS"
  60. mailer.8.c = 0;
  61. mailer.8.n = "Zerberus";
  62. mailer.8.id = "ZERBE"
  63. mailer.9.c = 0;
  64. mailer.9.n = "Junior Convert";
  65. mailer.9.id = "Junio"
  66. mailer.10.c = 0;
  67. mailer.10.n = "UMS mit UMSzer";
  68. mailer.10.id = "UMSZe"
  69. mailer.11.c = 0;
  70. mailer.11.n = "NCBMail Dos-Version";
  71. mailer.11.id = "DOS/N"
  72. mailer.12.c = 0;
  73. mailer.12.n = "Edgar Mailboxsystem";
  74. mailer.12.id = "Edgar"
  75. mailer.13.c = 0;
  76. mailer.13.n = "Netcall3.8 Point via DOS/NCBMail-NC";
  77. mailer.13.id = "Netca"
  78. mailer.14.c = 0;
  79. mailer.14.n = "Prometheus";
  80. mailer.14.id = "Prome"
  81. mailer.15.c = 0;
  82. mailer.15.n = "Arn";
  83. mailer.15.id = "Arn V";
  84. mailer.16.c = 0;
  85. mailer.16.n = "TIN für UNIX";
  86. mailer.16.id = "TIN [";
  87. mailer.17.c = 0;
  88. mailer.17.n = "WAni-Point";
  89. mailer.17.id = "WAni-";
  90. mailer.18.c = 0;
  91. mailer.18.n = "Phobos";
  92. mailer.18.id = "Phobo";
  93. mailer.19.c = 0;
  94. mailer.19.n = "ANUBIS ZSamm";
  95. mailer.19.id = "ANUBI";
  96. mailer.20.c = 0;
  97. mailer.20.n = "GRn 2.x";
  98. mailer.20.id = "GRn 2";
  99. mailer.21.c = 0;
  100. mailer.21.n = "UPoint-'medium'";
  101. mailer.21.id = "UPoin";
  102. mailer.22.c = 0;
  103. mailer.22.n = "LoraBBS-OS/2";
  104. mailer.22.id = "LoraB";
  105. mailer.23.c = 0;
  106. mailer.23.n = "MUIrn.ums";
  107. mailer.23.id = "MUIrn";
  108. mailer.24.c = 0;
  109. mailer.24.n = "xrn 7.xx";
  110. mailer.24.id = "xrn 7";
  111. mailer.25.c = 0;
  112. mailer.25.n = "NN";
  113. mailer.25.id = "NN ve";
  114. mailer.26.c = 0;
  115. mailer.26.n = "IntuiNews";
  116. mailer.26.id = "Intui";
  117. mailer.27.c = 0;
  118. mailer.27.n = "Freedom of Maus";
  119. mailer.27.id = "Freed";
  120. mailer.28.c = 0;
  121. mailer.28.n = "znews";
  122. mailer.28.id = "znews";
  123. mailer.29.c = 0;
  124. mailer.29.n = "Read";
  125. mailer.29.id = "Read ";
  126. mailer.30.c = 0;
  127. mailer.30.n = "XP v3.xx";
  128. mailer.30.id = "XP v3";
  129. mailer.31.c = 0;
  130. mailer.31.n = "EM-Mailer";
  131. mailer.31.id = "EM-Ma";
  132. mailer.32.c = 0;
  133. mailer.32.n = "Connectline";
  134. mailer.32.id = "Conne";
  135. mailer.33.c = 0;
  136. mailer.33.n = "Amiga Electronic Mail (AmiElm)";
  137. mailer.33.id = "//\\m";
  138. mailer.34.c = 0;
  139. mailer.34.n = "ELM";
  140. mailer.34.id = "ELM [";
  141. mailer.35.c = 0;
  142. mailer.35.n = "AmiGate";
  143. mailer.35.id = "AmiGa";
  144. mailer.36.c = 0;
  145. mailer.36.n = "MsgBase";
  146. mailer.36.id = "!! Ms"
  147. mailer.37.c = 0;
  148. mailer.37.n = "AmNet(R)-ZConnect-Gateway";
  149. mailer.37.id = "AmNet";
  150. mailer.38.c = 0;
  151. mailer.38.n = "CruxPunctus";
  152. mailer.38.id = "CruxP";
  153. mailer.39.c = 0;
  154. mailer.39.n = "Turbo-TransZer";
  155. mailer.39.id = "Turbo";
  156. mailer.40.c = 0;
  157. mailer.40.n = "CLNewsGate";
  158. mailer.40.id = "CLNew";
  159. mailer.41.c = 0;
  160. mailer.41.n = "Trumpet for Windows";
  161. mailer.41.id = "Trump";
  162. mailer.42.c = 0;
  163. mailer.42.n = "IBM NewsReader/2";
  164. mailer.42.id = "IBM N";
  165. mailer.43.c = 0;
  166. mailer.43.n = "timEd/2";
  167. mailer.43.id = "timEd";
  168. mailer.44.c = 0;
  169. mailer.44.n = "TRN 1.xx";
  170. mailer.44.id = "TRN 1";
  171. mailer.45.c = 0;
  172. mailer.45.n = "WinVN";
  173. mailer.45.id = "WinVN";
  174. mailer.46.c = 0;
  175. mailer.46.n = "Tin 1.x";
  176. mailer.46.id = "Tin 1";
  177. mailer.47.c = 0;
  178. mailer.47.n = "Maximus";
  179. mailer.47.id = "Maxim";
  180. mailer.48.c = 0;
  181. mailer.48.n = "uugate";
  182. mailer.48.id = "uugat";
  183. mailer.49.c = 0;
  184. mailer.49.n = "infiMail";
  185. mailer.49.id = "infiM";
  186.  
  187.  
  188. /* Der Letze MailerEintrag muss ein Dummy Eintrag sein */
  189. mailer.50.c = 0;
  190. mailer.50.n = "Foo";
  191. mailer.50.id = "Bar";
  192.  
  193. maxmailer = 50
  194.  
  195. mailer.un = 0; /* Zähler für unbekannte */
  196.  
  197. WHICHLEVEL
  198.  
  199.   IF result = "BOARDMENU" THEN DO
  200.     COUNT ALL
  201.     boards = result
  202.     DO j = 3 TO boards 
  203.       JUMPTOBOARD j
  204.       IF RC THEN DO
  205.         ENTERBOARD
  206.         CALL ScanBoard
  207.         BOARDMENU
  208.       END;
  209.     END;
  210.     CALL Calc
  211.   END;  
  212.   ELSE
  213.   IF result = "BOARD" THEN DO
  214.     CALL ScanBoard
  215.     CALL Calc
  216.   END;
  217.  
  218. EXIT
  219.  
  220. ScanBoard:PROCEDURE EXPOSE mailer. maxmailer typ
  221. WHICHLEVEL
  222.  
  223. IF result = "BOARD" THEN DO
  224.  
  225.   JUMPTOMESSAGE 1
  226.   IF ~RC THEN RETURN
  227.   COUNT ALL
  228.   mess = result
  229.   DO h = 1 TO mess
  230.     MESSAGEINFO MAILER
  231.     thismailer = result
  232.     mail = LEFT( thismailer, 5 );
  233.     found = 0;
  234.  
  235.     DO i = 0 FOR maxmailer;
  236.       IF mailer.i.id = mail THEN DO
  237.         mailer.i.c = mailer.i.c +1;
  238.         found = 1;
  239.         BREAK
  240.       END
  241.     END;
  242.  
  243.     IF ~found THEN DO 
  244.      IF typ = "SCAN" THEN DO
  245.        IF thismailer ~= "UNKNOWN" THEN
  246.          SAY "Programm: "||thismailer||", Id: "||mail;
  247.      END;
  248.      mailer.un = mailer.un + 1;
  249.     END;
  250.  
  251.     DOWN
  252.   END
  253.   
  254. END;
  255.  
  256. RETURN
  257.  
  258. Calc:PROCEDURE EXPOSE mailer. maxmailer
  259.   
  260.   gesamt = 0;
  261.  
  262.   DO i = 0 TO maxmailer;
  263.     gesamt = gesamt + mailer.i.c;
  264.   END;
  265.   gesamt = gesamt+mailer.un;
  266.  
  267.   SAY "Die Gesamte Anzahl der Nachrichten ist "||gesamt||", davon sind";
  268.   SAY ""
  269.  
  270.   DO i = 0 TO maxmailer
  271.    IF mailer.i.c ~= "0" THEN
  272.      SAY mailer.i.c||" Nachrichten von BenutzerInnen die "||mailer.i.n||" benutzen,";
  273.   END;
  274.  
  275.   IF mailer.un ~= "0" THEN DO
  276.     SAY "und "||mailer.un||" Nachrichten stammen von unbekannten"
  277.     SAY "Point-Programmen oder Z38 Benutzerinnen"
  278.   END
  279.  
  280.   SAY ""
  281.   SAY "Dies alles in Prozenten ausgedrückt:"
  282.   SAY ""
  283.  
  284.   DO i = 0 TO maxmailer
  285.    IF mailer.i.c ~= "0" THEN
  286.      SAY mailer.i.c/gesamt * 100||"% der Nachrichten von BenutzerInnen die "||mailer.i.n||" benutzen,";
  287.   END;
  288.  
  289.   IF mailer.un ~= "0" THEN DO
  290.     SAY "und "||mailer.un/gesamt*100||"% der Nachrichten stammen von unbekannten"
  291.     SAY "Mailern oder Z38 Benutzerinnen"
  292.   END
  293.  
  294.   PULL Bla
  295.  
  296. RETURN
  297.